93027f82-f1cd-4fd4-9276-b61d5263d847 21 6 9 decimal

&[DATE] &[TIME] - &[FILENAME]

Pt100 VDC [Van Dusen Callendar] -200..661°C

A 3.9083 103 -^* :

B 5.775 107 -^* - :

C 4.18301 1012 -^* - :

R.0 100 :

t R1.Pt100 R.0 1 A t * + B t 2^* + t 100 - (C * t 3^* + (* t 0 < R.0 1 A t * + B t 2^* + (* cases :

t NEGPt100 200 - t ≤ (t 0 ≤ (& (R.0 1 A t * + B t 2^* + t 100 - (C * t 3^* + (* positive segment if :

t POSPt100 0 t ≤ (t 661 ≤ (& (R.0 1 A t * + B t 2^* + (* NOT Pt100 if :

VDC Pt100 [-200..661 °C]

x NEGPt100 x POSPt100 2 1 sys

Solving negative VDC

x Pt100 R.0 1 A x * + B x 2^* + x 100 - (C * x 3^* + (* :

t Pt100 50 ≡ t 200 - 0 solve 125.1 -

x f x Pt100 50 - : 0 ≡

a 200 - : b 0 : xn b a + (2 / : 31 line

ε 102 -^:

Dichotomy n 0 : xn f abs ε > xn f a f * 0 ≤ b xn : a xn : if xn b a + (2 / : n n 1 + : 31 line while 31 line

.. sanity ..

xn 125.1 -

n 11

xn f 0

Solving positive VDC

x Pt100 R.0 1 A x * + B x 2^* + (* :

t Pt100 150 ≡ t 0661 solve 130.4

BIPM & jmG [XFR] both range -259.3467 ... 961.78 °C jmG [XFR] in a single segment BIPM in two segments. Pt100[jmG] is inversible thus needs no solver.

x f x Pt100 150 - : 0 ≡

a 0 : b 661 : xn b a + (2 / : 31 line

ε 102 -^:

Dichotomy n 0 : xn f abs ε > xn f a f * 0 ≤ b xn : a xn : if xn b a + (2 / : n n 1 + : 31 line while 31 line

.. sanity ..

TWO THINGS: 1. "Dichotomy" refines itself on the number of iterations, thus does not need refining the range. Unlike "Dichotomy", 'solve' needs be re-ranged for higher accuracy. 2. No matter: the formula, the maths, the arguments ... many EIT90 are known 2 decimals thus reducing Pt100 to ± XXX.01 °C

xn 130.5

n 12

xn f 0.01